home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 June (IDG) / Macworld_June_2000.iso / Shareware World / Utilities / Printing / MacGhostView / lib / pdf_draw.ps < prev    next >
Encoding:
Text File  |  2000-03-26  |  24.1 KB  |  865 lines  |  [TEXT/R*ch]
  1. %    Copyright (C) 1994, 1995, 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: pdf_draw.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % pdf_draw.ps
  20. % PDF drawing operations (graphics, text, and images).
  21.  
  22. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  23. .currentglobal true .setglobal
  24. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  25. GS_PDF_ProcSet begin
  26. pdfdict begin
  27.  
  28. % For simplicity, we use a single interpretation dictionary for all
  29. % PDF graphics operations, even though this is too liberal.
  30. /drawopdict 100 dict def
  31.  
  32. % ================================ Graphics ================================ %
  33.  
  34. % ---------------- Functions ---------------- %
  35.  
  36. /fnrdict mark
  37.   0 { .resolvefn0 }
  38.   2 { }
  39.   3 { .resolvefn3 }
  40.   4 { .resolvefn4 }
  41. .dicttomark readonly def
  42.  
  43. /.pdfbuildfunction {
  44.   DEBUG { (%Function: ) print dup === flush } if
  45.   .buildfunction
  46. } bdef
  47.  
  48. /.resolvefn0 {
  49.         % Don't lose our place in PDFfile.
  50.   PDFfile fileposition exch
  51.   dup true resolvestream
  52.         % The stream isn't positionable, so read all the data now.
  53.         % Stack: filepos fndict stream
  54.   1 index /Range oget length 2 idiv 2 index /BitsPerSample oget mul
  55.   2 index /Size oget { mul } forall
  56.   7 add 8 idiv string
  57.   1 index exch readstring pop exch closefile
  58.         % Stack: filepos fndict data
  59.   exch dup length 1 add dict .copydict
  60.   dup /DataSource 4 -1 roll put
  61.   .pdfbuildfunction
  62.   exch PDFfile exch setfileposition
  63. } bdef
  64.  
  65. /.resolvefn3 {
  66.   dup length dict .copydict
  67.   dup /Functions 2 copy oget mark exch dup {
  68.     oforce resolvefunction
  69.   } forall
  70.   counttomark -1 roll astore exch pop put
  71. } bdef
  72.  
  73. /tfopdict mark
  74.   /true /.true load
  75.   /false /.false load
  76. .dicttomark readonly def
  77. /.resolvefn4 {
  78.   PDFfile fileposition exch
  79.   dup true resolvestream 
  80.         % Stack: filepos fndict stream
  81.   1 index /Length oget string readstring pop
  82.   exch dup length dict copy dup /Function undef
  83.   exch token not {
  84.     () /rangecheck cvx signalerror
  85.   } if
  86.   exch token {
  87.     /rangecheck cvx signalerror
  88.   } if
  89.         % Use .bind to avoid idiom recognition.
  90.         % Use tfopdict to bind true and false.
  91.   //tfopdict begin .bind end
  92.   1 index /Function 3 -1 roll put
  93.   .pdfbuildfunction
  94.   exch PDFfile exch setfileposition
  95. } bdef
  96. currentdict /tfopdict undef
  97.  
  98. /resolvefunction {    % <fndict> resolvefunction <function>
  99.   dup /FunctionType oget //fnrdict exch get exec
  100. } bdef
  101.  
  102. /resolveidfunction {
  103.   dup /Identity eq { pop { } } { resolvefunction } ifelse
  104. } bdef
  105.  
  106. /resolvedefaultfunction {    % <fndict> <default> resolved'f'n <function>
  107.   1 index /Default eq { exch pop } { pop resolveidfunction } ifelse
  108. } bdef
  109.  
  110. % ---------------- Shadings ---------------- %
  111.  
  112. /shrdict mark
  113.   /ColorSpace {
  114.     resolvecolorspace
  115.   }
  116.   /Function {
  117.     dup type /dicttype eq {
  118.       resolvefunction
  119.     } {
  120.       [ exch { resolvefunction } forall ]
  121.     } ifelse
  122.   }
  123. .dicttomark readonly def
  124.  
  125. /resolveshading {    % <shname> resolveshading <shading>
  126.   Page /Shading rget {
  127.     mark exch {
  128.       oforce //shrdict 2 index .knownget { exec } if
  129.     } forall .dicttomark
  130.     dup /ShadingType get 4 ge {
  131.       dup dup true resolvestream /DataSource exch put
  132.     } if
  133.   } {
  134.     null
  135.   } ifelse
  136. } bdef
  137.  
  138. % ---------------- Halftones ---------------- %
  139.  
  140. /spotfunctions mark
  141.   /Round {
  142.     abs exch abs 2 copy add 1 le {
  143.       dup mul exch dup mul add 1 exch sub 
  144.     } {
  145.       1 sub dup mul exch 1 sub dup mul add 1 sub
  146.     } ifelse
  147.   }
  148.   /Diamond {
  149.     abs exch abs 2 copy add .75 le {
  150.       dup mul exch dup mul add 1 exch sub
  151.     } {
  152.       2 copy add 1.23 le {
  153.     .85 mul add 1 exch sub
  154.       } {
  155.     1 sub dup mul exch 1 sub dup mul add 1 sub
  156.       } ifelse
  157.     } ifelse
  158.   }
  159.   /Ellipse {
  160.     abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  161.       pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  162.     } {
  163.       dup 1 gt {
  164.     pop 1 exch sub dup mul exch 1 exch sub
  165.     .75 div dup mul add 4 div 1 sub
  166.       } {
  167.     .5 exch sub exch pop exch pop
  168.       } ifelse
  169.     } ifelse
  170.   }
  171.   /EllipseA { dup mul .9 mul exch dup mul add 1 exch sub }
  172.   /InvertedEllipseA { dup mul .9 mul exch dup mul add 1 sub }
  173.   /EllipseB { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  174.   /EllipseC { dup mul .9 mul exch dup mul add 1 exch sub }
  175.   /InvertedEllipseC { dup mul .9 mul exch dup mul add 1 sub }
  176.   /Line { exch pop abs neg }
  177.   /LineX { pop }
  178.   /LineY { exch pop }
  179.   /Square { abs exch abs 2 copy lt { exch } if pop neg }
  180.   /Cross { abs exch abs 2 copy gt { exch } if pop neg }
  181.   /Rhomboid { abs exch abs 0.9 mul add 2 div }
  182.   /DoubleDot { 2 {360 mul sin 2 div exch } repeat add }
  183.   /InvertedDoubleDot { 2 {360 mul sin 2 div exch } repeat add neg }
  184.   /SimpleDot { dup mul exch dup mul add 1 exch sub }
  185.   /InvertedSimpleDot { dup mul exch dup mul add 1 sub }
  186.   /CosineDot { 180 mul cos exch 180 mul cos add 2 div }
  187.   /Double { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add }
  188.   /InvertedDouble {
  189.     exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg
  190.   }
  191. .dicttomark readonly def
  192.  
  193. /htrdict mark
  194.   1 { .resolveht1 }
  195.   5 { .resolveht5 }
  196.     % We don't support types 6, 10, or 16 yet.
  197. .dicttomark readonly def
  198.  
  199. /.resolveht1 {
  200.   mark exch {
  201.     oforce
  202.     1 index /SpotFunction eq {
  203.       dup type /nametype eq
  204.     { //spotfunctions exch get } { resolvefunction }
  205.       ifelse
  206.     } {
  207.       1 index /TransferFunction eq {
  208.     resolveidfunction
  209.       } if
  210.     } ifelse
  211.   } forall .dicttomark
  212. } bdef
  213.  
  214. /.resolveht5 {
  215.   mark exch {
  216.     oforce dup type /dicttype eq { resolvehalftone } if
  217.   } forall .dicttomark
  218. } bdef
  219.  
  220. /resolvehalftone {    % <dict> resolvehalftone <halftone>
  221.   dup /HalftoneType get //htrdict exch get exec
  222. } bdef
  223.  
  224. % ---------------- Graphics state management ---------------- %
  225.  
  226. /cmmatrix matrix def
  227. drawopdict begin
  228.             % Graphics state stack
  229.   /q { q } def
  230.   /Q { Q } def
  231.             % Graphics state setting
  232.   /cm { //cmmatrix astore concat } def
  233.   /i /setflat load def
  234.   /J /setlinecap load def
  235.   /d /setdash load def
  236.   /j /setlinejoin load def
  237.   /w /setlinewidth load def
  238.   /M /setmiterlimit load def
  239.   /gs { gs } def
  240. end
  241.  
  242. % Each entry in this dictionary is
  243. %    <gsres> <value> -proc- <gsres>
  244. /gsbg { /BGDefault load resolvedefaultfunction setblackgeneration } bdef
  245. /gsucr { /UCRDefault load resolvedefaultfunction setundercolorremoval } bdef
  246.     %****** DOESN'T IMPLEMENT THE ARRAY (colortransfer) CASE YET ******
  247. /gstr { /TRDefault load resolvedefaultfunction settransfer } bdef
  248. /gsparamdict mark
  249.   /SA { setstrokeadjust }
  250.   /op {
  251.     %****** STROKE OVERPRINT, NOT IMPLEMENTED YET ******
  252.     pop
  253.   }
  254.   /OP { setoverprint }
  255.   /OPM {
  256.     %****** OVERPRINT MODE, NOT IMPLEMENTED YET ******
  257.     pop
  258.   }
  259.     % The PDF 1.3 specification says that the name /Default is only
  260.     % recognized for {BG,UCR,TR}2.  However, PDF 1.3 files produced
  261.     % by Adobe Acrobat Distiller 4.0 for Windows use the name /Default
  262.     % with the older keys, so we have to implement this.
  263.   /BG { 1 index /BG2 known { pop } { gsbg } ifelse }
  264.   /BG2 { gsbg }
  265.   /UCR { 1 index /UCR2 known { pop } { gsucr } ifelse }
  266.   /UCR2 { gsucr }
  267.   /TR { 1 index /TR2 known { pop } { gstr } ifelse }
  268.   /TR2 { gstr }
  269.   /HT {
  270.     dup /Default eq {
  271.       pop .setdefaultscreen
  272.     } {
  273.     %****** DOESN'T IMPLEMENT THE STREAM CASE YET ******
  274.       resolvehalftone sethalftone
  275.     } ifelse
  276.   }
  277.     % HTP may be present even if this isn't a DPS interpreter.
  278.   /HTP {
  279.     /sethalftonephase where { pop aload pop sethalftonephase } { pop } ifelse
  280.   }
  281.     % SM may be present even if this is only a Level 2 interpreter.
  282.   /SM {
  283.     /setsmoothness where { pop setsmoothness } { pop } ifelse
  284.   }
  285.   /Font { aload pop Tf }
  286.   /LW { setlinewidth }
  287.   /LC { setlinecap }
  288.   /LJ { setlinejoin }
  289.   /ML { setmiterlimit }
  290.   /D { aload pop setdash }
  291.   /FL { setflat }
  292.   /RI { ri }
  293. .dicttomark readonly def
  294. /gs {            % <gsres> gs -
  295.   Page /ExtGState rget {
  296.     % We keep the dictionary on the stack during the forall so that
  297.     % keys that interact with each other have access to it.
  298.     dup {
  299.       oforce exch gsparamdict exch .knownget { exec } { pop } ifelse
  300.     } forall pop
  301.   } if
  302. } bdef
  303.  
  304. % ---------------- Color setting ---------------- %
  305.  
  306. /01_1 [0 1] readonly def
  307. /01_3 [0 1 0 1 0 1] readonly def
  308. /01_4 [0 1 0 1 0 1 0 1] readonly def
  309.  
  310. % The keys here are resolved (PostScript, not PDF) color space names.
  311. /csncompdict mark
  312.   /DeviceGray { pop 1 }
  313.   /DeviceRGB { pop 3 }
  314.   /DeviceCMYK { pop 4 }
  315.   /CIEBasedA { pop 1 }
  316.   /CIEBasedABC { pop 3 }
  317.   /Separation { pop 1 }
  318.   /DeviceN { 2 oget length }
  319. .dicttomark readonly def
  320.  
  321. % Perhaps some of the values in the following need to be modified
  322. % depending on the WhitePoint value....
  323. /cslabinit mark
  324.   /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  325.   /MatrixABC [1 1 1 1 0 0 0 0 -1]
  326.   /DecodeLMN [
  327.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  328.      0.9505 mul} bind
  329.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  330.      } bind
  331.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  332.      1.0890 mul} bind
  333.   ]
  334. .dicttomark readonly def
  335.  
  336. /csrdict mark
  337.   /DeviceGray {
  338.     /DefaultGray Page /ColorSpace rget { exch pop resolvecolorspace } if
  339.   }
  340.   /DeviceRGB {
  341.     /DefaultRGB Page /ColorSpace rget { exch pop resolvecolorspace } if
  342.   }
  343.   /DeviceCMYK { }
  344.   /CalGray {
  345.     1 oget 6 dict begin
  346.     dup /Gamma knownoget {
  347.       /exp load 2 packedarray cvx /DecodeA exch def
  348.     } if
  349.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  350.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  351.     pop [ /CIEBasedA currentdict end ]
  352.   }
  353.   /CalRGB {
  354.     1 oget 6 dict begin
  355.     dup /Gamma knownoget {
  356.       [ exch { /exp load 2 packedarray cvx } forall
  357.       ] /DecodeABC exch def
  358.     } if
  359.     dup /Matrix knownoget { /MatrixABC exch def } if
  360.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  361.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  362.     pop [ /CIEBasedABC currentdict end ]
  363.   }
  364.   /CalCMYK {
  365.     pop /DeviceCMYK        % not defined by Adobe
  366.   }
  367.   /Lab {
  368.     1 oget 6 dict begin
  369.     dup /Range knownoget not { [-100 100 -100 100] } if
  370.     [0 100 null null null null] dup 2 4 -1 roll putinterval
  371.     /RangeABC exch def
  372.     //cslabinit { def } forall
  373.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  374.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  375.     pop [ /CIEBasedABC currentdict end ]
  376.   }
  377.   /ICCBased {
  378.         % Since the PostScript interpreter doesn't support these yet,
  379.         % always substitute an alternate space.
  380.     1 oget dup /Alternate knownoget {
  381.       exch pop
  382.     } {
  383.       /N get { null /DeviceGray null /DeviceRGB /DeviceCMYK } exch get
  384.     } ifelse resolvecolorspace
  385.   }
  386.   /Separation {
  387.     aload pop exch oforce resolvecolorspace exch oforce resolvefunction
  388.     4 array astore
  389.   }
  390.   /DeviceN {
  391.     aload pop 3 -1 roll oforce
  392.     3 -1 roll oforce resolvecolorspace
  393.     3 -1 roll oforce resolvefunction
  394.     4 array astore
  395.   }
  396.   /Indexed {
  397.     aload pop 3 -1 roll oforce resolvecolorspace
  398.         % If the underlying space is a Lab space, we must scale
  399.         % the output of the lookup table as part of DecodeABC.
  400.     dup dup type /arraytype eq { 0 get } if /CIEBasedABC eq {
  401.       dup 1 get /DecodeLMN known {
  402.     1 get dup length dict copy
  403.     begin /DecodeABC [ 0 2 4 {
  404.       RangeABC 1 index 1 add get RangeABC 2 index get sub /mul load
  405.       RangeABC 3 index get /add load
  406.       DecodeABC 6 -1 roll 2 idiv get [ 6 1 roll aload pop ] cvx
  407.     } for ] def
  408.     /RangeABC //01_3 def
  409.     currentdict end /CIEBasedABC exch 2 array astore
  410.       } if
  411.     } if
  412.     3 1 roll
  413.     oforce dup type /stringtype ne {
  414.         % The color lookup table is a stream.
  415.         % Get its contents.  Don't lose our place in PDFfile.
  416.         % Stack: /Indexed basespace hival lookup
  417.     PDFfile fileposition 5 1 roll true resolvestream
  418.         % Stack: filepos /Indexed basespace hival lookupstream
  419.     1 index 1 add
  420.         % Stack: filepos /Indexed basespace hival lookupstream len
  421.     3 index
  422.       dup dup type /arraytype eq { 0 get } if
  423.       //csncompdict exch get exec mul
  424.     string readstring pop
  425.         % Stack: filepos /Indexed basespace hival table
  426.     5 -1 roll PDFfile exch setfileposition
  427.     }
  428.     if 4 array astore
  429.   }
  430.   /Pattern {
  431.     dup type /nametype ne {
  432.       dup length 1 gt {
  433.     1 oget resolvecolorspace
  434.     /Pattern exch 2 array astore
  435.       } if
  436.     } if
  437.   }
  438. .dicttomark readonly def
  439.  
  440. /cssubst {        % <csname> cssubst <cspace'> true
  441.             % <csname> cssubst false
  442.   dup resolvecolorspace
  443.   dup 1 index ne { exch pop true } { pop pop false } ifelse
  444. } bdef
  445.  
  446. /csnames mark
  447.   /DeviceGray dup  /DeviceRGB dup  /DeviceCMYK dup  /Pattern dup
  448. .dicttomark readonly def
  449. /csresolve {        % <csresourcename> csresolve <cspace>
  450.   dup Page /ColorSpace rget {
  451.     exch pop resolvecolorspace
  452.   } {
  453.     //csnames 1 index known not { /undefined cvx signalerror } if
  454.   } ifelse
  455. } bdef
  456. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  457.   dup dup type /arraytype eq { 0 get } if
  458.   //csrdict exch .knownget {
  459.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  460.   } {
  461.     csresolve
  462.   } ifelse
  463. } bdef
  464.  
  465. /scresolve {    % <c0> ... scresolve <multi>
  466.         % We can't really make sc[n] and SC[N] work, because
  467.         % the color space information isn't available at
  468.         % conversion time; so we hack it by assuming that
  469.         % all the operands on the stack are used, and that
  470.         % if the top operand is a name, it's a Pattern resource.
  471.   dup type /nametype eq
  472.     { Page /Pattern rget { resolvepattern } { null } ifelse }
  473.   if
  474.   dup type /dicttype eq {
  475.         % Check the PaintType
  476.     dup /PaintType get 2 eq
  477.   } {
  478.     .pdfcount 1 gt
  479.   } ifelse
  480. } bdef
  481.  
  482. /.pdfpaintproc {         % <patdict> <resdict> .pdfpaintproc -
  483.   DEBUG { (%Begin PaintProc) = flush } if
  484.     % For uncolored patterns, we have to unbind the current
  485.     % color and color space before running the PaintProc.
  486.     % There's no harm in doing this for colored patterns,
  487.     % so for simplicity, we always do it.
  488.   q
  489.   null sc1 null SC1
  490.   exch false resolvestream pdfopdict .pdfruncontext
  491.   Q
  492.   DEBUG { (%End PaintProc) = flush } if
  493. } bdef
  494.  
  495. /resolvepattern {    % <patternstreamdict> resolvepattern <patterndict>
  496.         % Don't do the resolvestream now: just capture the data
  497.         % from the file if necessary.
  498.   dup length dict copy
  499.   dup /FilePosition .knownget {
  500.     1 index /File get dup fileposition 3 1 roll
  501.         % Stack: dict savepos pos file
  502.     dup 3 -1 roll setfileposition
  503.     dup 3 index /Length get string readstring pop
  504.         % Stack: dict savepos file string
  505.     3 1 roll exch setfileposition
  506.     1 index /File 3 -1 roll put
  507.     dup /FilePosition undef
  508.   } if
  509.   dup /PaintProc [
  510.         % Bind the resource dictionary into the PaintProc.
  511.     2 index /Resources knownoget { oforce } { 0 dict } ifelse
  512.     /.pdfpaintproc cvx
  513.   ] cvx put
  514.   DEBUG {
  515.     (%Pattern: ) print dup === flush
  516.   } if
  517. } bdef
  518.  
  519. drawopdict begin
  520.   /g { /DeviceGray cssubst { cs sc1 } { g } ifelse } bdef
  521.   /rg { /DeviceRGB cssubst { cs sc* } { rg } ifelse } bdef
  522.   /k { k } bdef
  523.   /cs { csresolve cs } bdef
  524.   /sc { scresolve { sc* } { sc1 } ifelse } bdef
  525.   /scn /sc load def
  526.   /G { /DeviceGray cssubst { CS SC1 } { G } ifelse } bdef
  527.   /RG { /DeviceRGB cssubst { CS SC* } { RG } ifelse } bdef
  528.   /K { K } bdef
  529.   /CS { csresolve CS } bdef
  530.   /ri { ri } bdef
  531.   /SC { scresolve { SC* } { SC1 } ifelse } bdef
  532.   /SCN /SC load def
  533. end
  534.  
  535. % ---------------- Paths ---------------- %
  536.  
  537. drawopdict begin
  538.             % Path construction
  539.   /m /moveto load def
  540.   /l /lineto load def
  541.   /c /curveto load def
  542.   /v { currentpoint 6 2 roll curveto } def
  543.   /y { 2 copy curveto } def
  544.   /re {
  545.    4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  546.    closepath
  547.   } def
  548.   /h /closepath load def
  549.             % Path painting and clipping
  550.   /n { n } def
  551.   /S { S } def
  552.   /s { s } def
  553.   /f { f } def
  554.   /f* { f* } def
  555.   /B { B } def
  556.   /b { b } def
  557.   /B* { B* } def
  558.   /b* { b* } def
  559.   /W { W } def
  560.   /W* { W* } def
  561.   /sh { resolveshading shfill } def
  562. end
  563.  
  564. % ---------------- XObjects ---------------- %
  565.  
  566. /xobjectprocs mark        % <dict> -proc- -
  567.   /Image { DoImage }
  568.   /Form { DoForm }
  569.   /PS { DoPS }
  570. .dicttomark readonly def
  571.  
  572. % Note that the keys in defaultdecodedict are resolved (PostScript, not PDF)
  573. % color space names.
  574. /defaultdecodedict mark
  575.   /DeviceGray { pop //01_1 }
  576.   /DeviceRGB { pop //01_3 }
  577.   /DeviceCMYK { pop //01_4 }
  578.   /CIEBasedA { 1 get /RangeA .knownget not { //01_1 } if }
  579.   /CIEBasedABC { 1 get /RangeABC .knownget not { //01_3 } if }
  580.   /Separation { pop //01_1 }
  581.   /DeviceN {
  582.     dup 1 oget length [ exch {0 1} repeat ] readonly
  583.   }
  584.   /Indexed {
  585.     pop [ 0 1 BitsPerComponent bitshift 1 sub ]
  586.   }
  587. .dicttomark readonly def
  588.  
  589. /checkaltimage {    % <resdict> checkaltimage <resdict[']>
  590.   /UsePrinterImages where {
  591.     pop UsePrinterImages {
  592.       dup /Alternates knownoget {
  593.     {
  594.       dup /DefaultForPrinting knownoget {
  595.         {
  596.           /Image oget exch pop exit
  597.         } {
  598.           pop
  599.         } ifelse
  600.       } {
  601.         pop
  602.       } ifelse
  603.     } forall
  604.       } if
  605.     } if
  606.   } if
  607. } bdef
  608.  
  609. /makeimagedict {    % <resdict> <newdict> makeimagedict -
  610.             % On return, newdict' is currentdict
  611.   begin
  612.   /Width 2 copy oget def
  613.   /Height 2 copy oget def
  614.   /BitsPerComponent 2 copy oget def
  615.   /Interpolate 2 copy knownoget { def } { pop } ifelse
  616.   makeimagekeys
  617. } bdef
  618. /makeimagekeys {    % <resdict> makeimagekeys <imagemask>
  619.         % newdict is currentdict
  620.         % Assumes Width, Height, BPC, Interpolate already copied.
  621.   /ImageType 1 def
  622.   /ImageMatrix Width 0 0
  623.         % Handle 0-height images specially.
  624.     Height dup 0 eq { pop 1 } if neg 0 1 index neg
  625.     6 array astore def
  626.   dup /ImageMask knownoget dup { and } if {
  627.         % Image mask
  628.         % Decode is required for the PostScript image operators.
  629.     /Decode 2 copy knownoget not { //01_1 } if def
  630.         % BitsPerComponent may be missing for masks.
  631.         % The spec requires it, but some producers omit it, and
  632.         % Acrobat Reader doesn't care.
  633.     /BitsPerComponent 2 copy known { pop } { 1 def } ifelse
  634.     true
  635.   } {
  636.         % Opaque image
  637.     dup /ColorSpace oget resolvecolorspace /ColorSpace exch def
  638.         % Decode is required for the PostScript image operators.
  639.     /Decode 2 copy knownoget not {
  640.       ColorSpace //defaultdecodedict
  641.       ColorSpace dup type /arraytype eq { 0 get } if get exec
  642.     } if def
  643.     false
  644.   } ifelse
  645.         % Even though we're going to read data,
  646.         % pass false to resolvestream so that
  647.         % it doesn't try to use Length (which may not be present).
  648.   exch false resolvestream /DataSource exch def
  649. } bdef
  650.  
  651. /DoImage {
  652.   checkaltimage dup length 6 add dict makeimagedict doimage
  653. } bdef
  654. /doimage {    % <imagemask> doimage -
  655.         % imagedict is currentdict, gets popped from dstack
  656.   DataSource exch
  657.   currentdict /Mask knownoget {
  658.     dup type /arraytype eq {
  659.       /ImageType 4 def
  660.       /MaskColor exch def
  661.     } {
  662.         % Mask is a stream, another Image XObject.
  663.       dup length dict makeimagedict
  664.       currentdict end currentdict end
  665.       4 dict begin
  666.       /ImageType 3 def
  667.       /InterleaveType 3 def
  668.       /MaskDict exch def
  669.       /DataDict exch def
  670.     } ifelse
  671.   } if
  672.         % Stack: datasource imagemask
  673.    { currentdict end setfillcolor imagemask }
  674.    { ColorSpace setcolorspace currentdict end image }
  675.   ifelse
  676.         % Close the input stream, unless it is PDFfile or
  677.         % PDFsource.
  678.   dup dup PDFfile eq exch PDFsource eq or { pop } { closefile } ifelse
  679. } bdef
  680.  
  681. /DoForm {
  682.   dup length dict copy
  683.   dup [ /pop load 2 index /Resources knownoget { oforce } { 0 dict } ifelse
  684.   3 index false /resolvestream cvx
  685.   pdfopdict /.pdfruncontext cvx
  686.   ] cvx /PaintProc exch put
  687.   execform
  688. } bdef
  689.  
  690. /DoPS {
  691.   true resolvestream cvx exec
  692. } bdef
  693.  
  694. drawopdict begin
  695.   /Do
  696.     { PDFfile fileposition exch
  697.       dup Page /XObject rget not { /undefined cvx signalerror } if
  698.       exch pop dup /Subtype get xobjectprocs exch get
  699.         % Don't leave extra objects on the stack while executing
  700.         % the definition of the form.
  701.       3 -1 roll 2 .execn
  702.       PDFfile exch setfileposition
  703.     } bdef
  704. end
  705.  
  706. % ---------------- In-line images ---------------- %
  707.  
  708. % Undo the abbreviations in an in-line image dictionary.
  709. % Note that we must look inside array values.
  710. % /I is context-dependent.
  711. /unabbrevkeydict mark
  712.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  713.   /F /Filter  /H /Height  /I /Interpolate  /IM /ImageMask  /W /Width
  714. .dicttomark readonly def
  715. /unabbrevvaluedict mark
  716.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  717.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  718.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /Fl /FlateDecode
  719.   /G /DeviceGray  /RGB /DeviceRGB
  720.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  721. .dicttomark readonly def
  722. /unabbrevtypedict mark
  723.   /nametype {
  724.     //unabbrevvaluedict 1 index .knownget { exch pop } if
  725.   }
  726.   /arraytype {
  727.     dup 0 1 2 index length 1 sub {
  728.       2 copy get unabbrevvalue put dup
  729.     } for pop
  730.   }
  731. .dicttomark readonly def
  732. /unabbrevvalue {    % <obj> unabbrevvalue <obj'>
  733.   oforce //unabbrevtypedict 1 index type .knownget { exec } if
  734. } bdef
  735.  
  736. drawopdict begin
  737.   /BI { mark } bdef
  738.   /ID {
  739.     counttomark 2 idiv dup 6 add dict begin {
  740.       exch //unabbrevkeydict 1 index .knownget { exch pop } if
  741.       exch unabbrevvalue def
  742.     } repeat pop
  743.     /File PDFsource def
  744.     currentdict makeimagekeys doimage
  745.     PDFsource token pop /EI ne { /ID cvx /syntaxerror signalerror } if
  746.   } bdef
  747. end
  748.  
  749. % ================================ Text ================================ %
  750.  
  751. drawopdict begin
  752.             % Text control
  753.   /BT { BT } def
  754.   /ET { ET } def
  755.   /Tc { Tc } def
  756.   /TL { TL } def
  757.   /Tr { Tr } def
  758.   /Ts { Ts } def
  759.   /Tw { Tw } def
  760.   /Tz { Tz } def
  761.             % Text positioning
  762.   /Td { Td } def
  763.   /TD { TD } def
  764.   /Tm { Tm } def
  765.   /T* { T* } def
  766.             % Text painting
  767.   /Tj { Tj } def
  768.   /' { ' } def
  769.   /" { " } def
  770.   /TJ { TJ } def
  771. end
  772.  
  773. % ============================== Annotations ============================== %
  774.  
  775.  
  776.  
  777. % Get and normalize an annotation's rectangle.
  778. /annotrect {        % <annot> annotrect <x> <y> <w> <h>
  779.   /Rect get aload pop
  780.   exch 3 index sub dup 0 lt { dup 5 -1 roll add 4 1 roll neg } if
  781.   exch 2 index sub dup 0 lt { dup 4 -1 roll add 3 1 roll neg } if
  782. } bdef
  783.  
  784. % Set an annotation color.
  785. /annotsetcolor {    % <annot> annotsetcolor -
  786.   /C knownoget { setrgbcolor } { 0 setgray } ifelse
  787. } bdef
  788.  
  789. % Draw the border.  Currently, we ignore requests for beveling, and we
  790. % don't round the corners of rectangles.
  791. /strokeborder {        % <annot> <width> <dash> strokeborder -
  792.   gsave
  793.   2 index annotsetcolor
  794.   0 setdash dup setlinewidth
  795.   exch annotrect
  796.   2 { 4 index sub 4 1 roll } repeat
  797.   2 { 4 index 0.5 mul add 4 1 roll } repeat
  798.   rectstroke pop
  799.   grestore
  800. } bdef
  801.  
  802. % Draw an annotation border.
  803. /drawborder {        % <annot> drawborder -
  804.   gsave
  805.   dup /BS knownoget {
  806.     dup /W knownoget not { 1 } if
  807.     [] 2 index /S knownoget {
  808.       /D eq { 2 index /D knownoget not { [3] } if exch pop } if
  809.     } if 3 -1 roll pop strokeborder
  810.   } {
  811.     dup /Border knownoget {
  812.       dup 2 get
  813.       exch dup length 3 gt { 3 get } { pop [] } ifelse
  814.       strokeborder
  815.     } {
  816.       pop
  817.     } ifelse
  818.   } ifelse
  819.   grestore
  820. } bdef
  821.  
  822. % Draw an annotation.
  823. /drawannot {        % <annot> drawannot -
  824.   gsave
  825.   dup /Subtype get /Widget eq
  826.   1 index /F knownoget not { 0 } if 2 and 0 eq and {
  827.     dup drawborder
  828.     dup /AP knownoget {
  829.     % Always use the Normal appearance.
  830.       /N oget
  831.         % Acrobat Distiller produces files in which this Form
  832.         % XObject lacks Type and Subtype keys.  This is illegal,
  833.         % but Acrobat Reader accepts it.  The only way we can
  834.         % tell whether this is a Form or a set of sub-appearances
  835.         % is by testing for the stream Length key.
  836.       dup /Length known not {
  837.     1 index /AS knownoget not { () } if
  838.         % Stack: annot Ndict AS
  839.     2 copy knownoget {
  840.       exch pop exch pop
  841.     } {
  842.         % Pick any one.
  843.       pop { exch pop oforce exit } forall
  844.     } ifelse
  845.       } if
  846.         % Acrobat Distiller produces files in which this Form
  847.         % XObject lack FormType and Matrix keys.  This is illegal,
  848.         % but Acrobat Reader accepts it.  Patch this up now.
  849.       dup /FormType known not  {
  850.     dup length 1 add dict copy dup /FormType 1 put
  851.       } if
  852.       dup /Matrix known not  {
  853.     dup length 1 add dict copy dup /Matrix matrix put
  854.       } if
  855.       gsave 1 index annotrect pop pop translate
  856.       DoForm
  857.     } if
  858.   } if pop
  859.   grestore
  860. } bdef
  861.  
  862. end            % pdfdict
  863. end            % GS_PDF_ProcSet
  864. .setglobal
  865.